(substitute-key-definition): Fix previous change.

diff --git a/lisp/subr.el b/lisp/subr.el
index f4a457ab1d3595ca823465208c1e4dbad6207c87..0b87112c9cd709ed93f7554cf6cec4cab25d3dba 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -205,9 +205,8 @@ in KEYMAP as NEWDEF those chars which are defined as OLDDEF in OLDMAP."
                               (if (or (eq defn olddef)
                                       (and (or (stringp defn) (vectorp defn))
                                            (equal defn olddef)))
-                                  (set-char-table-range (car scan)
-                                                        char
-                                                        (nconc (nreverse skipped) newdef))
+                                  (define-key keymap prefix1
+                                    (nconc (nreverse skipped) newdef))
                                 (if (and (keymapp defn)
                                          (let ((elt (lookup-key keymap prefix1)))
                                            (or (null elt)